home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 48
/
MOBICLIC 48.ISO
/
pc
/
DATA
/
COMMUNS
/
MENUBD.DIR
/
00043_Script_BOUCLE_VOLUME
< prev
next >
Wrap
Text File
|
2002-07-23
|
2KB
|
74 lines
-- boucles secondaires
global validMBD, rollMessBD, fermeMenuBD, ouvreMenuBD, gmemNivson
global gNbStamps, gfirstStampTrackNo, gpiste_Picto_NIVSON_0,gze_possibleNivson, gpisteNote_Silence
--------------------------------------------
on exitFrame
if fermeMenuBD=1 then
fermerMenu
else
repeat with i=gfirstStampTrackNo to gfirstStampTrackNo + gNbStamps - 1
zeNoItem = i - gfirstStampTrackNo + 1
if rollOver(i) and validMBD[zeNoItem] =1 then
member("item").text = string(i)
rollMessBD = member("menuBDMsg").line[zeNoItem]
end if
end repeat
u = the mouseH
v = the mouseV
if v> 34 and v < 70 then
case(abs(u- 202)< 5) of
1:
gze_possibleNivson = 0
0:
case(abs(u- 223)< 6) of
1:
gze_possibleNivson = 1
0:
case(abs(u- 248)< 7) of
1:
gze_possibleNivson = 2
0:
case(abs(u- 273)< 10) of
1:
gze_possibleNivson = 3
0:
case(abs(u- 304)< 13) of
1:
gze_possibleNivson = 4
0:
nothing
end case
end case
end case
end case
end case
if gze_possibleNivson = VOID then gze_possibleNivson = 0
gmemNivson = gze_possibleNivson
-- case( gze_possibleNivson) of
-- 0:
-- sprite(gpisteNote_Silence).member = "NOTE_0"
-- otherwise:
-- sprite(gpisteNote_Silence).member = "NOTE"
-- end case
updateStage
end if
end if
end
--------------------------------------
on testImage i
case(i>1) of
1:
zeNolabel = i - gfirstStampTrackNo + 2
go to frame label(string(zeNolabel))
0: go "1"
end case
end testImage
----------------------------------